home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1993 March / 1993-03.d64 / elect billboard (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  3KB  |  91 lines
  1. 20 rem copyright 1993 - compute publications intl ltd - all rights reserved
  2. 30 rem written by r. markland
  3. 50 :
  4. 60 printchr$(147)chr$(142)chr$(8):poke55,0:poke56,48
  5. 65 v=53248:poke55280,6:pokev+17,peek(v+17)and239
  6. 70 iflo=0thenlo=1:load"ml/ebb",8,1
  7. 80 iflo=1thenlo=2:load"c.def ebb",8,1
  8. 85 poke252,24:poke253,96:sys252:c=646:vp=781:hp=782:pl=65520
  9. 90 poke53281,15:poke788,52:forr=1to36:bl$=bl$+" ":next
  10. 92 b1$="[153]     [171][177][178][177][179][153]                    [171][177][178][177][179][153]     "
  11. 94 b2$="[153]     [171][178][177][178][179][153]                    [171][178][177][178][179][153]     ":tx$=" to change the "
  12. 98 pokev+22,peek(v+22)and247:co=0:bc=15:gosub1800
  13. 100 pokevp,8:pokehp,10:syspl:print"[146][144]electronic billboard"
  14. 110 printtab(12)"by:  r. markland"
  15. 115 printtab(16)"(c) 1993":printtab(5)"compute publications intl ltd"
  16. 120 pokev+17,peek(v+17)or16:dimco$(15):forr=0to15:readco$(r):next
  17. 150 fort=1to3000:next
  18. 160 print"[147][144]":pokevp,3:pokehp,3:syspl
  19. 170 printtab(3)"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  20. 180 forr=1to8:printtab(3)"[194]"spc(32)"[194]":next
  21. 200 printtab(3)"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
  22. 210 print"";:printtab(13)"character set"
  23. 220 printtab(7)"[144]abcdefghijklmnopqrstuvwxyz"
  24. 230 printtab(6)"0123456789 !"chr$(34)"#$%&'()*+,-./:?"
  25. 235 pokevp,13:pokehp,6:syspl:print"[del]     [clr/home]     [^]"
  26. 330 sys33031:poke212,0
  27. 350 pokevp,13:pokehp,5:syspl:print"message entered, press any key[144]"
  28. 360 getd$:ifd$=""then360
  29. 365 pokevp,13:pokehp,0:syspl:forr=1to10:printbl$:next
  30. 370 pokevp,13:pokehp,0:syspl
  31. 375 printbl$:printtab(13)"please select":gosub1000:gosub1030:gosub1060
  32. 480 fort=1to500:next
  33. 620 print"[147]    when billboard is moving, press:"
  34. 630 printtab(13)"space[144] to stop":printtab(18)"then"
  35. 635 printtab(11)"space[144] to restart"
  36. 640 print"   f-1[144]"tx$"message":print"   f-3[144]"tx$"text color"
  37. 650 print"   f-5[144]"tx$"background color":print"   f-7[144]"tx$"speed"
  38. 660 printtab(12)"press space now[144]";:
  39. 670 getd$:ifd$<>chr$(32)then670
  40. 710 print"[147]":gosub1800:pokev+17,peek(v+17)or16:pokev+23,255:pokev+29,255
  41. 720 pokev+27,0:sb=v+16:sp=2040:en=v+21:xl=v:xh=v+8:cr=v+39:y=122:yp=v+1
  42. 730 forr=0to7:pokesp+r,193:pokecr+r,co:pokeyp,y:yp=yp+2:next
  43. 750 l=56:h=24:forr=0to3:pokexl,l:pokexh,h:xl=xl+2:xh=xh+2:l=l+56:h=h+56:next
  44. 760 pokesb,240:pokeen,255:poke32954,16-int(ss*1.6)
  45. 770 sys32768:pokeen,0
  46. 780 getd$:ifd$=""then780
  47. 785 ifd$=chr$(32)then770
  48. 790 ifd$=chr$(133)then160
  49. 795 ifd$=chr$(134)thenprint"[147]":gosub1000:goto710
  50. 800 ifd$=chr$(135)thenprint"[147]":gosub1030:goto710
  51. 810 ifd$=chr$(136)thenprint"[147]":gosub1060:goto710
  52. 820 goto780
  53. 860 printtab(tb);:poke198,0:poke204,0:tp$=""
  54. 870 poke647,peek(c):getki$:ifki$=""then870
  55. 880 ifki$=chr$(13)thenprint" ";:poke204,1:return
  56. 890 ifki$=chr$(20)andlen(tp$)>0thentp$=left$(tp$,len(tp$)-1):goto950
  57. 900 ifki$>chr$(47)andki$<chr$(58)then930:
  58. 920 goto870
  59. 930 iflen(tp$)=(le)then870
  60. 940 tp$=tp$+ki$
  61. 950 printki$;:goto870
  62. 1000 print:printtab(4)"[146]character color (0-15[144])";
  63. 1010 gosub1200:le=2:gosub860:co=val(tp$):iftp$=""thenco=-1
  64. 1020 ifco<0orco>15thenprint"[157][157][157][157][157]    ";:goto1010
  65. 1025 return
  66. 1030 print:printtab(4)"background color (0-15[144])";
  67. 1040 gosub1200:le=2:gosub860:bc=val(tp$):iftp$=""thenbc=-1
  68. 1050 ifbc<0orbc>15thenprint"[157][157][157][157][157]    ";:goto1040
  69. 1055 return
  70. 1060 print:printtab(4)"scroll speed - slow to fast"
  71. 1070 printtab(4)"(1-9 or return - default=5[144])";
  72. 1080 ss=5:gosub1200:le=1:gosub860
  73. 1090 iftp$=""thenprint"[157][157]"ss;:return
  74. 1100 ss=val(tp$):ifss<1orss>9thenprint"[157][157][157][157][157]     ";:goto1080
  75. 1105 return
  76. 1200 pokevp,peek(214):pokehp,34:syspl:return
  77. 1800 pokev+17,peek(v+17)and239:print"[147][154]";:forr=1to3:print"    "bl$;:next
  78. 1810 print"     [176][195][178][195][174][154]                    [176][195][178][195][174][154]          ";
  79. 1820 print"[171][178][177][178][179][154]                    [171][178][177][178][179][154]     ";
  80. 1830 print"[213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201]";
  81. 1835 print"[203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202]";:pokec,co
  82. 1850 forr=1to8:print"  ";:pokec,bc:printbl$;:pokec,co:print"  ";:next
  83. 1860 print"  ";:pokec,bc:printbl$;:pokec,co:print"  ";
  84. 1870 print"[201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201] ";
  85. 1880 print"[202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203]";
  86. 1890 forr=1to3:printb1$b2$;:next
  87. 1950 print"[153]     [171][177][178][177][179][153]                    [171][177][178][177][179][153]    [144]";:poke56295,13
  88. 1960 poke2023,160:return
  89. 1970 data black,white,red,cyan,purple,green,blue,yellow,orange,brown,light red
  90. 1980 data dark gray,medium gray,light green,light blue,light gray
  91.